home *** CD-ROM | disk | FTP | other *** search
/ Private Casting / Casting One.bin / Docs / Intro.dir / 00024_password.ls < prev    next >
Encoding:
Text File  |  1998-02-21  |  801 b   |  36 lines
  1. on keyDown
  2.   global idioma
  3.   if the key = RETURN then
  4.     cursor(-1)
  5.     set clave to the text of field "password"
  6.     if clave = "15IN6" then
  7.       set idioma to "english"
  8.       set correcto to 1
  9.     else
  10.       if clave = "24FR6" then
  11.         set idioma to "french"
  12.         set correcto to 1
  13.       else
  14.         if clave = "38DE1" then
  15.           set idioma to "deutch"
  16.           set correcto to 1
  17.         else
  18.           if clave = "TRACOR" then
  19.             set idioma to "english"
  20.             set correcto to 1
  21.           else
  22.             alert("Incorrect Password." & RETURN & numToChar(10) & "Try again.")
  23.           end if
  24.         end if
  25.       end if
  26.     end if
  27.     if correcto then
  28.       go("start")
  29.     else
  30.       set the text of field "password" to EMPTY
  31.     end if
  32.   else
  33.     pass()
  34.   end if
  35. end
  36.